﻿Public Class BewegungsboniTabelleNahkampf_1CW
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 0
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 0
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 0
            Else
                Return 1
            End If
        Else
            Return 0
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|1"
    End Function
End Class
Public Class BewegungsboniTabelleNahkampf_2
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MinimaleReichweite = 1 And E.MaximaleReichweite = 1 Then
            If E.Bewegungsart.ToUpper = MovementSorts.Fuss.ToString.ToUpper Then
                Return 0
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Mech.ToString.ToUpper Then
                Return 0
            ElseIf E.Bewegungsart.ToUpper = MovementSorts.Motorreifen.ToString.ToUpper Then
                Return 0
            Else
                Return 2
            End If
        Else
            Return 0
        End If
    End Function
    Public Overrides Function ToString() As String
        Return "nahkampf|2"
    End Function
End Class